/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / database / vicinity / !Vicinity / Auto / Extended / DumpToPRN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 47 f4 20 44 75 | 6d 70 20 74 6f 20 50 61 |...G. Du|mp to Pa|
|00000010| 72 61 6c 6c 65 6c 21 73 | 65 6e 64 20 74 68 65 20 |rallel!s|end the |
|00000020| 77 68 6f 6c 65 20 61 64 | 64 72 65 73 73 20 62 6f |whole ad|dress bo|
|00000030| 6f 6b 20 74 6f 20 74 68 | 65 20 70 61 72 61 6c 6c |ok to th|e parall|
|00000040| 65 6c 20 70 6f 72 74 0d | 00 14 10 f4 20 3e 44 75 |el port.|.... >Du|
|00000050| 6d 70 54 6f 50 52 4e 0d | 00 1e 1e f4 20 4a 75 67 |mpToPRN.|.... Jug|
|00000060| 67 6c 65 72 2c 20 44 75 | 6d 70 20 74 6f 20 50 72 |gler, Du|mp to Pr|
|00000070| 69 6e 74 65 72 0d 00 28 | 2e ee 20 85 20 ee 20 85 |inter..(|.. . . .|
|00000080| 20 87 3a 85 20 9f 2c 22 | 44 75 6d 70 54 6f 50 52 | .:. .,"|DumpToPR|
|00000090| 4e 3a 20 22 2b f6 24 2b | 22 20 28 22 2b c3 9e 2b |N: "+.$+|" ("+..+|
|000000a0| 22 29 22 0d 00 32 05 3a | 0d 00 3c 0e 68 65 69 67 |")"..2.:|..<.heig|
|000000b0| 68 74 25 3d 34 33 0d 00 | 46 05 3a 0d 00 50 24 f2 |ht%=43..|F.:..P$.|
|000000c0| 69 6e 69 74 5f 61 72 67 | 73 28 22 72 65 63 73 2f |init_arg|s("recs/|
|000000d0| 65 2c 64 61 74 61 2f 65 | 2c 69 6e 66 6f 22 29 0d |e,data/e|,info").|
|000000e0| 00 5a 05 3a 0d 00 64 1f | 72 65 63 6f 72 64 73 25 |.Z.:..d.|records%|
|000000f0| 3d a4 61 72 67 73 5f 65 | 76 61 6c 28 22 72 65 63 |=.args_e|val("rec|
|00000100| 73 22 29 0d 00 6e 20 76 | 69 63 69 6e 69 74 79 25 |s")..n v|icinity%|
|00000110| 3d a4 61 72 67 73 5f 65 | 76 61 6c 28 22 64 61 74 |=.args_e|val("dat|
|00000120| 61 22 29 0d 00 78 1c 69 | 6e 66 6f 24 3d a4 61 72 |a")..x.i|nfo$=.ar|
|00000130| 67 73 5f 74 65 78 74 28 | 22 69 6e 66 6f 22 29 0d |gs_text(|"info").|
|00000140| 00 82 05 3a 0d 00 8c 16 | 70 72 6e 25 3d ae 20 22 |...:....|prn%=. "|
|00000150| 50 61 72 61 6c 6c 65 6c | 3a 22 0d 00 96 05 3a 0d |Parallel|:"....:.|
|00000160| 00 a0 08 79 25 3d 31 0d | 00 aa 05 3a 0d 00 b4 15 |...y%=1.|...:....|
|00000170| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00000180| 22 0d 00 be 05 3a 0d 00 | c8 15 d5 23 70 72 6e 25 |"....:..|...#prn%|
|00000190| 2c 22 3e 20 22 2b 69 6e | 66 6f 24 0d 00 d2 10 70 |,"> "+in|fo$....p|
|000001a0| 25 3d 76 69 63 69 6e 69 | 74 79 25 0d 00 dc 15 e3 |%=vicini|ty%.....|
|000001b0| 20 69 25 3d 30 20 b8 20 | 72 65 63 6f 72 64 73 25 | i%=0 . |records%|
|000001c0| 0d 00 e6 30 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 |...0 .. |"Hourgla|
|000001d0| 73 73 5f 50 65 72 63 65 | 6e 74 61 67 65 22 2c 69 |ss_Perce|ntage",i|
|000001e0| 25 2a 31 30 30 20 81 20 | 72 65 63 6f 72 64 73 25 |%*100 . |records%|
|000001f0| 0d 00 f0 0a 20 79 25 2b | 3d 37 0d 00 fa 13 20 e7 |.... y%+|=7.... .|
|00000200| 20 79 25 3e 68 65 69 67 | 68 74 25 20 8c 0d 01 04 | y%>heig|ht% ....|
|00000210| 0f 20 20 d5 23 70 72 6e | 25 2c 31 32 0d 01 0e 17 |.  .#prn|%,12....|
|00000220| 20 20 d5 23 70 72 6e 25 | 2c 22 3e 20 22 2b 69 6e |  .#prn%|,"> "+in|
|00000230| 66 6f 24 0d 01 18 0a 20 | 20 79 25 3d 31 0d 01 22 |fo$.... | y%=1.."|
|00000240| 06 20 cd 0d 01 2c 0f 20 | e3 20 65 25 3d 30 20 b8 |. ...,. |. e%=0 .|
|00000250| 20 36 0d 01 36 11 20 20 | 74 24 3d a4 6d 74 78 28 | 6..6.  |t$=.mtx(|
|00000260| 70 25 29 0d 01 40 0f 20 | 20 d5 23 70 72 6e 25 2c |p%)..@. | .#prn%,|
|00000270| 74 24 0d 01 4a 0c 20 20 | 70 25 2b 3d 33 36 0d 01 |t$..J.  |p%+=36..|
|00000280| 54 06 20 ed 0d 01 5e 22 | 20 d5 23 70 72 6e 25 2c |T. ...^"| .#prn%,|
|00000290| c4 32 30 2c 22 20 22 29 | 2b 22 2a 2a 20 42 52 45 |.20," ")|+"** BRE|
|000002a0| 41 4b 20 2a 2a 22 0d 01 | 68 05 ed 0d 01 72 0d d5 |AK **"..|h....r..|
|000002b0| 23 70 72 6e 25 2c 31 32 | 0d 01 7c 0a d9 23 70 72 |#prn%,12|..|..#pr|
|000002c0| 6e 25 0d 01 86 05 3a 0d | 01 90 16 c8 99 20 22 48 |n%....:.|..... "H|
|000002d0| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 01 9a |ourglass|_Off"...|
|000002e0| 05 3a 0d 01 a4 1c 2a 53 | 65 74 20 56 69 63 69 6e |.:....*S|et Vicin|
|000002f0| 69 74 79 24 41 6c 74 65 | 72 65 64 20 4e 6f 0d 01 |ity$Alte|red No..|
|00000300| ae 05 e0 0d 01 b8 05 3a | 0d 01 c2 27 dd 20 f2 69 |.......:|...'. .i|
|00000310| 6e 69 74 5f 61 72 67 73 | 28 74 6f 6b 65 6e 73 61 |nit_args|(tokensa|
|00000320| 66 74 65 72 62 61 73 69 | 63 71 75 69 74 24 29 0d |fterbasi|cquit$).|
|00000330| 01 cc 0d ea 20 74 6f 6b | 65 6e 73 24 0d 01 d6 13 |.... tok|ens$....|
|00000340| de 20 61 72 67 73 62 75 | 66 66 25 20 32 35 36 0d |. argsbu|ff% 256.|
|00000350| 01 e0 1b 74 6f 6b 65 6e | 73 24 3d 22 42 41 53 49 |...token|s$="BASI|
|00000360| 43 2c 71 75 69 74 2f 6b | 73 22 0d 01 ea 44 e7 20 |C,quit/k|s"...D. |
|00000370| 74 6f 6b 65 6e 73 61 66 | 74 65 72 62 61 73 69 63 |tokensaf|terbasic|
|00000380| 71 75 69 74 24 3c 3e 22 | 22 20 8c 20 74 6f 6b 65 |quit$<>"|" . toke|
|00000390| 6e 73 24 2b 3d 22 2c 22 | 2b 74 6f 6b 65 6e 73 61 |ns$+=","|+tokensa|
|000003a0| 66 74 65 72 62 61 73 69 | 63 71 75 69 74 24 0d 01 |fterbasi|cquit$..|
|000003b0| f4 28 f2 61 72 67 73 5f | 70 72 6f 63 65 73 73 28 |.(.args_|process(|
|000003c0| 61 72 67 73 62 75 66 66 | 25 2c 32 35 36 2c 74 6f |argsbuff|%,256,to|
|000003d0| 6b 65 6e 73 24 29 0d 01 | fe 05 e1 0d 02 08 05 3a |kens$)..|.......:|
|000003e0| 0d 02 12 20 dd 20 f2 61 | 72 67 73 5f 70 72 6f 63 |... . .a|rgs_proc|
|000003f0| 65 73 73 28 61 62 25 2c | 61 6c 25 2c 6b 64 24 29 |ess(ab%,|al%,kd$)|
|00000400| 0d 02 1c 09 ea 20 65 6e | 25 0d 02 26 18 c8 99 20 |..... en|%..&... |
|00000410| 22 4f 53 5f 47 65 74 45 | 6e 76 22 20 b8 20 65 6e |"OS_GetE|nv" . en|
|00000420| 25 0d 02 30 44 e7 20 a4 | 6d 74 78 28 65 6e 25 29 |%..0D. .|mtx(en%)|
|00000430| 3d 22 22 20 8c 20 85 20 | 30 2c 22 54 68 69 73 20 |="" . . |0,"This |
|00000440| 70 72 6f 67 72 61 6d 20 | 6d 75 73 74 20 62 65 20 |program |must be |
|00000450| 72 75 6e 20 62 79 20 56 | 69 63 69 6e 69 74 79 20 |run by V|icinity |
|00000460| 6f 6e 6c 79 22 0d 02 3a | 14 61 72 67 73 5f 62 75 |only"..:|.args_bu|
|00000470| 66 66 65 72 25 3d 61 62 | 25 0d 02 44 14 61 72 67 |ffer%=ab|%..D.arg|
|00000480| 73 5f 6c 65 6e 67 74 68 | 25 3d 61 6c 25 0d 02 4e |s_length|%=al%..N|
|00000490| 14 61 72 67 73 5f 6b 65 | 79 64 65 66 24 3d 6b 64 |.args_ke|ydef$=kd|
|000004a0| 24 0d 02 58 27 f2 61 72 | 67 73 5f 70 72 6f 63 65 |$..X'.ar|gs_proce|
|000004b0| 73 73 67 69 76 65 6e 28 | 65 6e 25 2c 61 62 25 2c |ssgiven(|en%,ab%,|
|000004c0| 61 6c 25 2c 6b 64 24 29 | 0d 02 62 05 e1 0d 02 6c |al%,kd$)|..b....l|
|000004d0| 05 3a 0d 02 76 29 dd 20 | f2 61 72 67 73 5f 70 72 |.:..v). |.args_pr|
|000004e0| 6f 63 65 73 73 67 69 76 | 65 6e 28 65 6e 25 2c 61 |ocessgiv|en(en%,a|
|000004f0| 62 25 2c 61 6c 25 2c 6b | 64 24 29 0d 02 80 24 c8 |b%,al%,k|d$)...$.|
|00000500| 99 20 22 4f 53 5f 52 65 | 61 64 41 72 67 73 22 2c |. "OS_Re|adArgs",|
|00000510| 6b 64 24 2c 65 6e 25 2c | 61 62 25 2c 61 6c 25 0d |kd$,en%,|ab%,al%.|
|00000520| 02 8a 05 e1 0d 02 94 05 | 3a 0d 02 9e 1e dd 20 a4 |........|:..... .|
|00000530| 61 72 67 73 5f 74 6f 6b | 65 6e 28 61 62 25 2c 6b |args_tok|en(ab%,k|
|00000540| 64 24 2c 74 6b 24 29 0d | 02 a8 0e ea 20 6b 24 2c |d$,tk$).|.... k$,|
|00000550| 6a 24 2c 6a 25 0d 02 b2 | 16 e7 20 a7 6b 64 24 2c |j$,j%...|.. .kd$,|
|00000560| 74 6b 24 29 3d 30 20 8c | 20 3d 30 0d 02 bc 10 6a |tk$)=0 .| =0....j|
|00000570| 24 3d a4 6c 6f 77 28 6b | 64 24 29 0d 02 c6 08 6a |$=.low(k|d$)....j|
|00000580| 25 3d 30 0d 02 d0 11 74 | 6b 24 3d a4 6c 6f 77 28 |%=0....t|k$=.low(|
|00000590| 74 6b 24 29 0d 02 da 0f | c8 95 20 a7 6a 24 2c 22 |tk$)....|.. .j$,"|
|000005a0| 2c 22 29 0d 02 e4 17 20 | 6b 24 3d c0 6a 24 2c a7 |,").... |k$=.j$,.|
|000005b0| 6a 24 2c 22 2c 22 29 2d | 31 29 0d 02 ee 1d 20 e7 |j$,",")-|1).... .|
|000005c0| 20 a7 6b 24 2c 74 6b 24 | 29 20 8c 20 3d 61 62 25 | .k$,tk$|) . =ab%|
|000005d0| 21 28 6a 25 2a 34 29 0d | 02 f8 17 20 6a 24 3d c1 |!(j%*4).|... j$=.|
|000005e0| 6a 24 2c a7 6a 24 2c 22 | 2c 22 29 2b 31 29 0d 03 |j$,.j$,"|,")+1)..|
|000005f0| 02 0a 20 6a 25 2b 3d 31 | 0d 03 0c 05 ce 0d 03 16 |.. j%+=1|........|
|00000600| 1c e7 20 a7 6a 24 2c 74 | 6b 24 29 20 8c 20 3d 61 |.. .j$,t|k$) . =a|
|00000610| 62 25 21 28 6a 25 2a 34 | 29 0d 03 20 06 3d 30 0d |b%!(j%*4|).. .=0.|
|00000620| 03 2a 05 3a 0d 03 34 22 | dd 20 a4 61 72 67 73 5f |.*.:..4"|. .args_|
|00000630| 74 6f 6b 65 6e 74 65 78 | 74 28 61 62 25 2c 6b 64 |tokentex|t(ab%,kd|
|00000640| 24 2c 74 6b 24 29 0d 03 | 3e 0b ea 20 6d 25 2c 74 |$,tk$)..|>.. m%,t|
|00000650| 24 0d 03 48 1f 6d 25 3d | a4 61 72 67 73 5f 74 6f |$..H.m%=|.args_to|
|00000660| 6b 65 6e 28 61 62 25 2c | 6b 64 24 2c 74 6b 24 29 |ken(ab%,|kd$,tk$)|
|00000670| 0d 03 52 21 e7 20 28 6d | 25 80 26 46 46 30 30 30 |..R!. (m|%.&FF000|
|00000680| 30 30 30 29 20 84 20 6d | 25 3d 30 20 8c 20 3d 22 |000) . m|%=0 . ="|
|00000690| 22 0d 03 5c 09 74 24 3d | 22 22 0d 03 66 0d c8 95 |"..\.t$=|""..f...|
|000006a0| 20 3f 6d 25 3e 33 31 0d | 03 70 0d 20 74 24 2b 3d | ?m%>31.|.p. t$+=|
|000006b0| bd 3f 6d 25 0d 03 7a 0a | 20 6d 25 2b 3d 31 0d 03 |.?m%..z.| m%+=1..|
|000006c0| 84 05 ce 0d 03 8e 07 3d | 74 24 0d 03 98 05 3a 0d |.......=|t$....:.|
|000006d0| 03 a2 22 dd 20 a4 61 72 | 67 73 5f 74 6f 6b 65 6e |..". .ar|gs_token|
|000006e0| 65 76 61 6c 28 61 62 25 | 2c 6b 64 24 2c 74 6b 24 |eval(ab%|,kd$,tk$|
|000006f0| 29 0d 03 ac 0b ea 20 6d | 25 2c 74 24 0d 03 b6 1f |)..... m|%,t$....|
|00000700| 6d 25 3d a4 61 72 67 73 | 5f 74 6f 6b 65 6e 28 61 |m%=.args|_token(a|
|00000710| 62 25 2c 6b 64 24 2c 74 | 6b 24 29 0d 03 c0 20 e7 |b%,kd$,t|k$)... .|
|00000720| 20 28 6d 25 80 26 46 46 | 30 30 30 30 30 30 29 20 | (m%.&FF|000000) |
|00000730| 84 20 6d 25 3d 30 20 8c | 20 3d 30 0d 03 ca 09 6d |. m%=0 .| =0....m|
|00000740| 25 2b 3d 31 0d 03 d4 08 | 3d 21 6d 25 0d 03 de 05 |%+=1....|=!m%....|
|00000750| 3a 0d 03 e8 44 dd 20 a4 | 61 72 67 73 5f 74 65 78 |:...D. .|args_tex|
|00000760| 74 28 74 6b 24 29 3d a4 | 61 72 67 73 5f 74 6f 6b |t(tk$)=.|args_tok|
|00000770| 65 6e 74 65 78 74 28 61 | 72 67 73 5f 62 75 66 66 |entext(a|rgs_buff|
|00000780| 65 72 25 2c 61 72 67 73 | 5f 6b 65 79 64 65 66 24 |er%,args|_keydef$|
|00000790| 2c 74 6b 24 29 0d 03 f2 | 05 3a 0d 03 fc 44 dd 20 |,tk$)...|.:...D. |
|000007a0| a4 61 72 67 73 5f 65 76 | 61 6c 28 74 6b 24 29 3d |.args_ev|al(tk$)=|
|000007b0| a4 61 72 67 73 5f 74 6f | 6b 65 6e 65 76 61 6c 28 |.args_to|keneval(|
|000007c0| 61 72 67 73 5f 62 75 66 | 66 65 72 25 2c 61 72 67 |args_buf|fer%,arg|
|000007d0| 73 5f 6b 65 79 64 65 66 | 24 2c 74 6b 24 29 0d 04 |s_keydef|$,tk$)..|
|000007e0| 06 05 3a 0d 04 10 0e dd | 20 a4 6d 74 78 28 6d 25 |..:.....| .mtx(m%|
|000007f0| 29 0d 04 1a 08 ea 20 74 | 24 0d 04 24 09 74 24 3d |)..... t|$..$.t$=|
|00000800| 22 22 0d 04 2e 0d c8 95 | 20 3f 6d 25 3e 33 31 0d |""......| ?m%>31.|
|00000810| 04 38 0d 20 74 24 2b 3d | bd 3f 6d 25 0d 04 42 0a |.8. t$+=|.?m%..B.|
|00000820| 20 6d 25 2b 3d 31 0d 04 | 4c 05 ce 0d 04 56 07 3d | m%+=1..|L....V.=|
|00000830| 74 24 0d 04 60 05 3a 0d | 04 6a 0e dd 20 a4 6c 6f |t$..`.:.|.j.. .lo|
|00000840| 77 28 74 24 29 0d 04 74 | 0b ea 20 70 25 2c 63 25 |w(t$)..t|.. p%,c%|
|00000850| 0d 04 7e 10 e3 20 70 25 | 3d 31 20 b8 20 a9 74 24 |..~.. p%|=1 . .t$|
|00000860| 0d 04 88 12 20 63 25 3d | 97 c1 74 24 2c 70 25 2c |.... c%=|..t$,p%,|
|00000870| 31 29 0d 04 92 23 20 e7 | 20 63 25 3e 3d 97 22 41 |1)...# .| c%>=."A|
|00000880| 22 20 80 20 63 25 3c 3d | 97 22 5a 22 20 8c 20 63 |" . c%<=|."Z" . c|
|00000890| 25 2b 3d 33 32 0d 04 9c | 12 20 c1 74 24 2c 70 25 |%+=32...|. .t$,p%|
|000008a0| 2c 31 29 3d bd 63 25 0d | 04 a6 05 ed 0d 04 b0 07 |,1)=.c%.|........|
|000008b0| 3d 74 24 0d ff          |                         |=t$..   |        |
+--------+-------------------------+-------------------------+--------+--------+